RCT Effects

# lsa_int_epoch_df %>%
# filter(year==2057) %>%
# filter(focus=="Effect BF OR") %>%
# filter(age.groups.output=='Age 2') %>%
# ggplot()+
# geom_point(aes(x=input.value, y=int.value, color=gender.output), size=1)+
# geom_line(aes(x=input.value, y=int.value, color=gender.output))+
# geom_hline(aes(yintercept=det.int.value), linetype="dashed")+
# facet_grid( rows = vars(age.groups.output,bmi.output), scale="free")+
# theme_bw()+theme(legend.position = "bottom",
# panel.spacing.y=unit(4, "mm"))+
# guides(colour = guide_legend("BMI"))+
# ggtitle("Effect BF OR")+ylab("Prevalence")+
# xlab("Input assumption")+
# scale_y_continuous(labels = scales::percent)+
#
# lsa_int_epoch_df %>%
# filter(year==2057) %>%
# filter(focus=="Effect TV OR") %>%
# filter(age.groups.output=='Age 2') %>%
# ggplot()+
# geom_point(aes(x=input.value, y=int.value, color=gender.output), size=1)+
# geom_line(aes(x=input.value, y=int.value, color=gender.output))+
# geom_hline(aes(yintercept=det.int.value), linetype="dashed")+
# facet_grid( rows = vars(age.groups.output,bmi.output), scale="free")+
# theme_bw()+theme(legend.position = "bottom",
# panel.spacing.y=unit(4, "mm"))+
# guides(colour = guide_legend("BMI"))+
# ggtitle("Effect TV OR")+ylab("Prevalence")+
# xlab("Input assumption")+
# scale_y_continuous(labels = scales::percent)+
#
# lsa_int_epoch_df %>%
# filter(year==2057) %>%
# filter(focus=="\"Effect Non-core OR\"") %>%
# filter(age.groups.output=='Age 2') %>%
# ggplot()+
# geom_point(aes(x=input.value, y=int.value, color=gender.output), size=1)+
# geom_line(aes(x=input.value, y=int.value, color=gender.output))+
# geom_hline(aes(yintercept=det.int.value), linetype="dashed")+
# facet_grid( rows = vars(age.groups.output,bmi.output), scale="free")+
# theme_bw()+theme(legend.position = "bottom",
# panel.spacing.y=unit(4, "mm"))+
# guides(colour = guide_legend("BMI"))+
# ggtitle("Effect Non-core OR")+ylab("Prevalence")+
# xlab("Input assumption")+
# scale_y_continuous(labels = scales::percent)+
#
# plot_layout(ncol=3, nrow=1, guides = "collect")&theme(legend.position = "bottom")